<%
    Class StringBuilder
        Dim strCode

        Public Sub AppendLine(TextStr)
            strCode = strCode & TextStr & vbCrLf
        End Sub

        Public Sub Append(TextStr)
            strCode = strCode & TextStr
        End Sub

        Public Function ToString()
            ToString = strCode
        End Function
    End Class
%>
